object dmPub: TdmPub
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 382
  Top = 307
  Height = 373
  Width = 702
  object dspPub: TDataSetProvider
    DataSet = qryPub
    Left = 32
    Top = 120
  end
  object dspUpdate: TDataSetProvider
    DataSet = qryUpdate
    OnUpdateData = dspUpdateUpdateData
    OnUpdateError = dspUpdateUpdateError
    Left = 96
    Top = 120
  end
  object adcConn: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 8
  end
  object qryPub: TADOQuery
    Connection = adcConn
    CursorType = ctStatic
    Parameters = <>
    Left = 32
    Top = 64
  end
  object qryUpdate: TADOQuery
    Connection = adcConn
    Parameters = <>
    Left = 96
    Top = 64
  end
  object qryExecute: TADOQuery
    Connection = adcConn
    Parameters = <>
    Left = 152
    Top = 64
  end
  object stpProc: TADOStoredProc
    Connection = adcConn
    Parameters = <>
    Left = 216
    Top = 64
  end
  object dspProc: TDataSetProvider
    DataSet = stpProc
    Left = 152
    Top = 120
  end
  object qryItemCode: TADOQuery
    Connection = adcConn
    Parameters = <
      item
        Name = 'pid'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'times'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT py_code,wb_code,item_type_name name,item_type_no code FRO' +
        'M hp_dic_item_type')
    Left = 503
    Top = 24
  end
  object dspItemCode: TDataSetProvider
    DataSet = qryItemCode
    Left = 503
    Top = 72
  end
  object cdsItemCode: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'times'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspItemCode'
    Left = 503
    Top = 120
  end
  object dsItemCode: TDataSource
    DataSet = cdsItemCode
    Left = 503
    Top = 168
  end
  object qryItem: TADOQuery
    Connection = adcConn
    Parameters = <>
    Left = 32
    Top = 233
  end
  object qryUsed: TADOQuery
    Connection = adcConn
    Parameters = <
      item
        Name = 'used_yn'
        Attributes = [paNullable]
        DataType = ftBoolean
        NumericScale = 255
        Precision = 255
        Size = 2
        Value = Null
      end
      item
        Name = 'barcode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 16
        Value = '%'
      end>
    SQL.Strings = (
      'update  hp_barcode set used_yn= :used_yn'
      'where  barcode= :barcode')
    Left = 104
    Top = 232
  end
  object qryUnitDic: TADOQuery
    Connection = adcConn
    Parameters = <
      item
        Name = 'pid'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'times'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT py_code,wb_code,name,code FROM hp_dic_unit')
    Left = 551
    Top = 24
  end
  object dspUnitDic: TDataSetProvider
    DataSet = qryUnitDic
    Left = 551
    Top = 72
  end
  object cdsUnitDic: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'times'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspUnitDic'
    Left = 551
    Top = 120
  end
  object dsUnitDic: TDataSource
    DataSet = cdsUnitDic
    Left = 551
    Top = 168
  end
  object qrytemp: TADOQuery
    Connection = adcConn
    Parameters = <>
    Left = 375
    Top = 24
  end
  object dsptemp: TDataSetProvider
    DataSet = qrytemp
    Left = 375
    Top = 72
  end
  object cdstemp: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'times'
        ParamType = ptUnknown
      end>
    ProviderName = 'dsptemp'
    Left = 375
    Top = 120
  end
  object dstemp: TDataSource
    DataSet = cdstemp
    Left = 375
    Top = 168
  end
  object qryStore: TADOQuery
    Connection = adcConn
    Parameters = <
      item
        Name = 'pid'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'times'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT store_no,store_shortname FROM hp_dic_store')
    Left = 615
    Top = 24
  end
  object dspStore: TDataSetProvider
    DataSet = qryStore
    Left = 615
    Top = 72
  end
  object cdsStore: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'times'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspStore'
    Left = 615
    Top = 120
  end
  object dsStore: TDataSource
    DataSet = cdsStore
    Left = 615
    Top = 168
  end
  object qryUser: TADOQuery
    Connection = adcConn
    Parameters = <
      item
        Name = 'pid'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'times'
        DataType = ftString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select emp_no,emp_sn from sys_sys_users')
    Left = 439
    Top = 24
  end
  object dspUser: TDataSetProvider
    DataSet = qryUser
    Left = 439
    Top = 72
  end
  object cdsUser: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'times'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspUser'
    Left = 439
    Top = 120
  end
  object dsUser: TDataSource
    DataSet = cdsUser
    Left = 439
    Top = 168
  end
  object qryStore_output: TADOQuery
    Connection = adcConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM hp_store_output (nolock)')
    Left = 270
    Top = 136
  end
  object dspStore_output: TDataSetProvider
    DataSet = qryStore_output
    Left = 271
    Top = 185
  end
  object cdsStore_output: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStore_output'
    Left = 275
    Top = 232
    object strngfldStore_outputbarcode: TStringField
      DisplayLabel = #21830#21697#26465#30721
      FieldName = 'barcode'
      Size = 16
    end
    object strngfldStore_outputtarget_type: TStringField
      DisplayLabel = #23458#25143#30446#26631
      FieldName = 'target_type'
      Size = 1
    end
    object strngfldStore_outputstu_no: TStringField
      DisplayLabel = #23398#29983#32534#21495
      FieldName = 'stu_no'
      Size = 8
    end
    object strngfldStore_outputclient_name: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'client_name'
    end
    object cdsStore_outputunit_price: TCurrencyField
      DisplayLabel = #38646#21806#20215
      FieldName = 'unit_price'
    end
    object strngfldStore_outputclient_phone: TStringField
      DisplayLabel = #23458#25143#30005#35805
      FieldName = 'client_phone'
      Size = 13
    end
    object strngfldStore_outputremark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'remark'
      Size = 255
    end
    object strngfldStore_outputoperate_user: TStringField
      DisplayLabel = #25805#20316#21592
      FieldName = 'operate_user'
      Size = 8
    end
    object dtmfldStore_outputoperate_datetime: TDateTimeField
      DisplayLabel = #20986#24211#26102#38388
      FieldName = 'operate_datetime'
    end
    object strngfldStore_outputitem_name: TStringField
      FieldKind = fkCalculated
      FieldName = 'item_name2'
      Size = 40
      Calculated = True
    end
  end
  object dsStore_Output: TDataSource
    DataSet = cdsStore_output
    Left = 277
    Top = 280
  end
end
